(set-variable): Simplify previous change.

diff --git a/lisp/simple.el b/lisp/simple.el
index 2d8cffe9c52159e8703231ad19765655df48c06e..eb49bdd7d58fbea9722093f4b0b662fb89edc1e8 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3035,13 +3035,10 @@ in the definition is used to check that VALUE is valid."
                                           'set-variable-value-history)))))
                 (list var val)))
 
-  (let ((type (get var 'custom-type))
-       widget)
+  (let ((type (get var 'custom-type)))
     (when type
       ;; Match with custom type.
       (require 'wid-edit)
-      (unless (listp type)
-       (setq widget (list type)))
       (setq type (widget-convert type))
       (unless (widget-apply type :match val)
        (error "Value `%S' does not match type %S of %S"